home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat66 / rtrequest / example-script < prev    next >
Encoding:
Text File  |  1994-04-21  |  2.6 KB  |  101 lines
  1. ;        ************************
  2. ;         *    RTRequest v1.0    *
  3. ;        ************************
  4. ;
  5. ; Ce programme reuni les commandes DOS 'REQUESTFILE' et 'REQUESTCHOICE',
  6. ; avec un paramétrage plus simple et surtout en utilisant la reqtools.library
  7.  
  8. ; Il fonctionne sur toutes les configs à partir de l'OS2.04.
  9.  
  10.  
  11.  
  12.  
  13. ; ***********************************************
  14. ; * Exemple de programmation de script AmigaDOS    *
  15. ; *                        *
  16. ; * par Doguet Emmanuel      le 05/03/1994        *
  17. ; ***********************************************            
  18.  
  19.  
  20. ; Appel du programme, et stockage de la réponse dans 
  21. ; une variable d'environnement 
  22. ; (ex : "programme >ENV:variable" -> stocke le retour du programme dans la variable 'variable' ).
  23.  
  24.  
  25.  
  26.  
  27. SetEnv    choix        ; On crée une variable 
  28.  
  29.  
  30. RTRequest REQUEST "Question !" "Faite votre choix :" "Choix N°1| Choix N°2|Choix N°3" 2 >ENV:choix
  31.  
  32.  
  33.  
  34.   ; L'utilisateur a sélectionné le 1er bouton ????
  35.   ; ----------------------------------------------
  36. if $choix EQ "1"    
  37.  
  38.     ; L'utilisateur a clické sur le 1er bouton
  39.     RTRequest REQUEST "Example-Script" "Vous avez sélectionné le choix 1" Ok 1 >NIL:
  40.  
  41.  
  42.   ; Non ?? Bin on continue a tester, Si Oui on arrête les tests
  43.   ; ------------------------------------------------------------
  44. else    
  45.     
  46.     ; L'utilisateur a sélectionné le 2eme bouton ????
  47.     ; -----------------------------------------------
  48.     if $choix EQ "2"
  49.  
  50.         ; L'utilisateur a clické sur le 2eme bouton
  51.         RTRequest REQUEST "Example-Script" "Vous avez sélectionné le choix 2" Ok 1 >NIL:
  52.  
  53.     ; Non ? Bin on continue a tester, Si Oui on arrête les tests
  54.     ; ----------------------------------------------------------
  55.     else
  56.         if $choix EQ "0"
  57.             ; L'utilisateur a clické sur le dernier bouton
  58.             RTRequest REQUEST "Example-Script" "Vous avez sélectionné le choix 3" Ok 1 >NIL:
  59.         endif
  60.     endif
  61. endif
  62.  
  63.  
  64. UnSetEnv choix    ; On libère la variable
  65.  
  66.  
  67.  
  68.  
  69. SetEnv Chaine    ; Une Nouvelle variable
  70.  
  71. ; On ouvre un 'FileRequester'
  72. ; ---------------------------
  73.  
  74. RTRequest FILEREQUEST    "Copier un fichier en RAM:" "S:" "User-Startup" >ENV:Chaine
  75.  
  76. ; Si aucun fichier  sélectionné
  77. ; -----------------------------
  78. If $Chaine EQ ""    
  79.     RTRequest REQUEST "Example-Script" "Tu n'as rien sélectionné !!!!" Yep >NIL:
  80.  
  81. ; Sinon, on copie le fichier
  82. ; --------------------------
  83. else
  84.             ; 
  85.     Copy $Chaine RAM:    ; On effectue la copie
  86.     RTRequest REQUEST "Example-Script" "J'ai copié le fichier en RAM:" "Merci !" 1 >NIL:
  87. Endif
  88.  
  89.  
  90.  
  91. UnSetEnv Chaine    ; Libère la variable
  92.  
  93.  
  94.  
  95. ; ATTENTION :
  96. ; ***********
  97. ;
  98. ; *    Si vous ne voulez pas de retour de la part de RTRequest
  99. ;    faite : RTRequest {arguments} >NIL:
  100. ; *    N'oublié surtout pas de libérer la mémoire (unsetenv) risque d'erreur ou plantage du système
  101. ;